＜プログラム＞                // コンパイラはCCSです。
//*****************************************************************************
//電波時計用タイムコード
//　　　　　　　　　　　 発生プログラム　　 Ver.170128　　                             PIC18F452　
//*****************************************************************************
			//Ver.080706a → Ver.160515　//内容： 年またぎの西暦年に係るバグ修正
			//ver.160515 → ver.170128  //内容：年またぎの１月１日の累計日数　３６６（３６７）日 → １日
											
#include "18f452.h"
#include "string.h"
#include "stdio.h"
#use delay(clock=40000000)
#FUSES  H4,NOWDT,NOPROTECT,PUT,BROWNOUT,NOLVP   //システムクロック：40MHｚ （=10MHｚ×4PLL)

#use RS232(BAUD=19200,XMIT=PIN_C6,RCV=PIN_C7)   // ボーレート = 19200bps  TX=RC6,RX=RC7

#define NAK             0x15            //  ＮＡＫ
#define ETX             0x03            //  ＥＴＸ  
#define ESC             0x1b            //  ＥＳＣ
#byte   PIR1=0x0F9E                     //  UART割込み制御レジスタへPIR1の変数割付
                                        //b4:TXIF　UART送信割込みフラグ 　１：割込み中　0：割込みなし
                                        //b5:RCIF　UART受信割込みフラグ　　　　　　同上
#byte   RCREG=0x0FAE                    //受信バッファ
#byte   RCSTA=0x0FAB                    //受信動作モード設定レジスタ
#byte   INTCON2=0x0FF1                  //割込み制御レジスタ２
#byte   INTCON3=0x0FF0                  //割込み制御レジスタ3
#byte   PIR2=0x0FA1                     //ペリフェラル割込みレジスタ


#use fast_io(B)
//////// Port define and link LCD library 
//#define mode   0
#define mode     0b00000010     //RB1をINT1の入力モードに設定

//   液晶
#define input_x     input_B
#define output_x    output_B
#define set_tris_x  set_tris_B
#define rs PIN_B3   //chip select
#define stb PIN_B2  //strobe

#include <1lcd_lib.c>



int ix = 0;
int Out_Mae,Flag_M,Flag_P,Flag_1,Flag_0;


long int Count_20msec = 0,Count_100msec = 0;

signed long int Year = 2007,Month = 11,Day = 3,H = 0,Min = 0,
                                            Sec = 0,Sec_PC,mSec = 10000,Week;
int32  Day_total,Day_Year,Day_This_Year;
unsigned long int Day1,Day2,Day3,Day4,Day5,Day6,Day7,Day8,Day9,Day10,Day11,Day12;   //Year年の１月１日から各月までの日数累計
short int OutputMode = 1;                                                           //1:タイムコード出力モード   0:年月日時分秒 設定モード
int swCount_Select = 0,swCount_Up = 0,swCount_Down = 0;
int SelectMode = 0; // 設定モード　→　0:年　1：月　2：日　3：時　4：分　その他：秒

char Sun[]   = "Sun";
char Mon[]   = "Mon";
char Thues[] = "Thu";
char Wed[]   = "Wed";
char Thurs[] = "Thr";
char Fri[]   = "Fri";
char Sat[]   = "Sat";
char str[];
char str_Mode[10];




int Out = 0,PAm,PAh;

                                            
unsigned int buf[16];


unsigned long int temp_Count = 0;

void LedOut();
void WeekFunc();
void MonthFunc();
void YearFunc();
void TimeCode();
void time_output();
void sw_check();
void Decode();
char timed_getc();




void WeekFunc()
{
    unsigned long int i,Year1,Day_Feb,Weekx;

    // 2000年から(Year -1)年までの日数計算-----------------------------------------------------
    Day_Year = 0;
    for(i = 2000; i < Year; i++)    
    {
        if((((i % 4) == 0) && ((i % 100) != 0)) ||          //100で割り切れないで４で割れる西暦年はうるう年である。
            ((i % 900) == 200) ||                           //但し、900で割った時あまりが200または、600の西暦年も
            ((i % 900) == 600))                             //うるう年である。（改定ユリウス暦）    
        {
            Year1 = 366;
        }
        else Year1 = 365;

        Day_Year = Day_Year + (int32)Year1;
    }
        
    //Year年の累計日数計算-----------------------------------------------------------------------
            //２月の日数計算
        if((((Year % 4) == 0) && ((Year % 100) != 0)) ||    //100で割り切れないで４で割れる西暦年はうるう年である。
            ((Year % 900) == 200) ||                        //但し、900で割った時あまりが200または、600の西暦年も
            ((Year % 900) == 600))                          //うるう年である。（改定ユリウス暦）    
        {
            Day_Feb = 29;
        }
        else Day_Feb = 28;

        Day1  = Day;
        Day2  = Day1 + 31;
        Day3  = Day2 + Day_Feb;
        Day4  = Day3 + 31;
        Day5  = Day4 + 30;
        Day6  = Day5 + 31;
        Day7  = Day6 + 30;
        Day8  = Day7 + 31;
        Day9  = Day8 + 31;
        Day10 = Day9 + 30;
        Day11 = Day10 + 31;
        Day12 = Day11 + 30;

    switch(Month)
    {
        case 1:                     //１月の場合
            Day_This_Year = Day1;
            break;
        case 2:                     //２月の場合
            Day_This_Year = Day2;
            break;
        case 3:
            Day_This_Year = Day3;   //３月の場合
            break;
        case 4:
            Day_This_Year = Day4;   //４月の場合
            break;
        case 5:
            Day_This_Year = Day5;   //５月の場合
            break;
        case 6:
            Day_This_Year = Day6;   //６月の場合
            break;
        case 7:
            Day_This_Year = Day7;   //７月の場合
            break;
        case 8:
            Day_This_Year = Day8;   //８月の場合
            break;
        case 9:
            Day_This_Year = Day9;   //９月の場合
            break;
        case 10: 
            Day_This_Year = Day10;  //１０月の場合
            break;
        case 11:
            Day_This_Year = Day11;  //１１月の場合
            break;
        case 12:
            Day_This_Year = Day12;  //１２月の場合
            break;
        default: break;
    }

    //2000年１月１日（土）から Year年Moｎth月Day日間での累計日数Day_total ----------------------------------------
    Day_total = Day_This_Year + Day_Year;
            //　Year年の累計日数　＋　2000年1月1日から　（　Year - １）年12月31日までの日数累計
    Weekx = (unsigned long int)( Day_total % 7);

    switch(Weekx)
    {
        case 0:                                             //金曜日
            str = Fri;
            Week = 5;
            break;
        case 1:                                             //土曜日
            str = Sat;
            Week = 6;
            break;
        case 2:                                             //日曜日
            str = Sun;
            Week = 0;
            break;
        case 3:                                             //月曜日
            str = Mon;
            Week = 1;
            break;
        case 4:                                             //火曜日
            str = Thues;
            Week= 2;
            break;
        case 5:                                             //水曜日
            str = Wed;
            Week = 3;
            break;
        case 6:                                             //木曜日
            str = Thurs;
            Week = 4;
            break;
        default: break;
    }
}



void MonthFunc()
{

    if(Month == 2)                                          //2月の場合
    {                               
                                                            //うるう年の場合
        if(((Year % 4 == 0) && (Year % 100 != 0)) ||        //100で割り切れないで４で割れる西暦年はうるう年である。
            (Year % 900 == 200) ||                          //但し、900で割った時あまりが200または、600の西暦年も
            (Year % 900 == 600))                            //うるう年である。（改定ユリウス暦）    
        {
            if(Day >= 30)
            {
                Day = 1;
                Month++;
            }
        }
        else                                                //うるう年でない場合
        {
            if(Day >= 29)
            {
                Day = 1;
                Month++;
            }
        }
    }
    else if(Month == 12)                                    //12月の場合
    {
        if(Day >= 32)
        {   
            Day = 1;
			Day_This_Year = 1;				//追加（Ver.160515 → Ver.170128）	//バグ修正
											//1月1日の累計日数　365(366)日を1日に修正	//バグ修正
            Month = 1;
            Year++;
        }
    }

    else if( (Month == 4) || (Month == 6) ||                //4、6、9、11月の場合 
        (Month == 9) || (Month == 11) )                 
    {
        if(Day >= 31)
        {
            Day = 1;
            Month++;
        }

    }
    else                                                    //2、4、6、9、11、12月以外の月
    {
        if(Day >= 32)
        {
            Day = 1;
            Month++;
        }
    }
}

/*
//YearFunc()をコメントアウト（Ver.080706a → Ver.160515）
void YearFunc()
{                               
                                                            //うるう年の場合
    if(((Year % 4 == 0) && (Year % 100 != 0)) ||            //100で割り切れないで４で割れる西暦年はうるう年である。
        (Year % 900 == 200) ||                              //但し、900で割った時あまりが200または、600の西暦年も
        (Year % 900 == 600))                                //うるう年である。（改定ユリウス暦）    
    {
        if(Day_This_Year >= 367)                            //Year年の累計日数が367日を超えた場合
        {
            Day = 1;
            Year++;
        }
    }
    else                                                    //うるう年以外
    {
        if(Day_This_Year >= 366)                            //Year年の累計日数が366日を超えた場合
        {
            Day = 1;
            Year++;
        }
    }
}

*/




void TimeCode()
{
    unsigned long int i;
    unsigned long int Temp1,Temp2,Temp3;    
    unsigned long int Temp16,tempYear;

//(1) 全タイムコードパルスの立ち上がり信号（１sec毎にOut=1）
    for(i = 0; i < 60; i++) if(Count_100msec == i*10)Out = 1;

//(2)　マーカー（M)信号OFFタイミング制御　　パルス幅200msec
    if(Count_100msec == 2)Out = 0;          //先頭マーカー（M)off 

//（３）　ポジションマーカ（P0〜P5)信号OFFタイミング制御　パルス幅200msec
    for(i = 0; i < 6; i++)
    {
        if(Count_100msec == (i * 100 +  92) )Out = 0;           //ポジションマーカーP0~P5 off
    }

//(4) 0〜10sec： 分データ信号出力タイミング制御
    Temp2 = (unsigned long int)Min / 10;                        //10進２桁目（BCD) :3ビット
    Temp1 = (unsigned long int)Min % 10;                        //10進１桁目（BCD)　：4ビット
    Temp16 = (Temp2 << 5) + Temp1;                              //16ビットの送信順文字列作成
    Temp16 = Temp16 & 0b1111111111101111;                       //第４ビットに０をセット
    Temp16 = Temp16 << 8;                                       //MSBに先頭データビットを移動
        //パリティ計算
    PAm =bit_test (Temp2,2)^bit_test(Temp2,1)^bit_test(Temp2,0)
            ^bit_test(Temp1,3)^bit_test(Temp1,2)^bit_test(Temp1,1)^bit_test(Temp1,0);


    for(i = 1; i < 9; i++)                                      //MSBから8bit送出   
    {
        if( (Count_100msec == (10*i + 5)) && ((0x8000 & Temp16) != 0) )Out = 0;//１の場合　15〜85
        if( (Count_100msec == (10*i + 8)) && ((0x8000 & Temp16) == 0) )Out = 0;//０の場合　18〜88
        Temp16 = (Temp16 << 1);
    }

//（5）　10〜20sec：　時間データ信号出力タイミング制御
    Temp2 = (unsigned long int)H /10;                           //10進２桁目（BCD)　：2ビット
    Temp1 = (unsigned long int)H % 10;                          //10進１桁目（BCD)　:4ビット
    Temp16 = (Temp2 << 5) + Temp1;                              //16ビットの送信順文字列作成
    Temp16 =  Temp16 & 0b1111111001101111;                      //第4位と第７，８位に０をセット
    Temp16 = (Temp16 << 7);                                     //MSBに先頭データビットを移動
            //パリティ計算
    PAh = bit_test(Temp2,1)^bit_test(Temp2,0)
            ^bit_test(Temp1,3)^bit_test(Temp1,2)^bit_test(Temp1,1)^bit_test(Temp1,0);

    for(i = 0; i < 9; i++)                                                          //MSBから9ビット送出
    {
        if( (Count_100msec == (10*i + 105)) && ((0x8000 & Temp16) != 0) )Out = 0;   //１の場合
        if( (Count_100msec == (10*i + 108)) && ((0x8000 & Temp16) == 0) )Out = 0;   //０の場合
        Temp16 = (Temp16 << 1); 
    }

//(6) 20〜30sec：　日データ信号出力タイミング制御(1)
    Temp3 = (unsigned long int)Day_This_Year / 100;                                 //10進３桁目（BCD)　：2ビット
    Temp2 = ((unsigned long int)Day_This_Year % 100) / 10;                          //10進２桁目（BCD)　4：ビット
    Temp1 = ((unsigned long int)Day_This_Year % 100) % 10;                          //10進１桁目（BCD)　4：ビット
    Temp16 = (Temp3 << 5) + Temp2;                                                  //16ビットの送信順文字列作成
    Temp16 =  Temp16 & 0b1111111001101111;                                          //第4位と第７，８位に０をセット
    Temp16 = (Temp16 << 7);                                                         //MSBに先頭データビットを移動
    for(i = 0; i < 9; i++)                                                          //MSBから9ビット送出    
    {
        if( (Count_100msec == (10*i + 205)) && ((0x8000 & Temp16) != 0) )Out = 0;   //１の場合
        if( (Count_100msec == (10*i + 208)) && ((0x8000 & Temp16) == 0) )Out = 0;   //０の場合
        Temp16 = (Temp16 << 1); 
    }
//(7) 30〜40sec：　日データ信号出力タイミング制御(2)
    Temp16 = (Temp1 << 5) + (PAh << 2) + (PAm << 1); 
    Temp16 =  Temp16 & 0b1111111111100111;                                          //第3位と4位に０をセット

    Temp16 = (Temp16 << 7);//MSBに先頭データビットを移動
    for(i = 0; i < 9; i++)//MSBから9ビット送出  
    {
        if( (Count_100msec == (10*i + 305)) && ((0x8000 & Temp16) != 0) )Out = 0;   //１の場合
        if( (Count_100msec == (10*i + 308)) && ((0x8000 & Temp16) == 0) )Out = 0;   //０の場合
        Temp16 = (Temp16 << 1); 
    }

//(8) 40〜50sec：　西暦年信号（西暦下２桁）
    TempYear = Year % 100;                                                          //西暦は下２桁のみ送信
    Temp2 = TempYear / 10;                                                          //10進２桁目　：4ビット
    Temp1 = TempYear % 10;                                                          //10進１桁目　：4ビット
    Temp16 = (Temp2 << 4) + Temp1;                                                  //16ビットの送信順文字列作成 (予備ビット=0）
    Temp16 = (Temp16 << 7);                                                         //MSBに先頭データビットを移動
    for(i = 0; i < 9; i++)  
    {
        if( (Count_100msec == (10*i + 405)) && ((0x8000 & Temp16) != 0) )Out = 0;   //１の場合
        if( (Count_100msec == (10*i + 408)) && ((0x8000 & Temp16) == 0) )Out = 0;   //０の場合
        Temp16 = (Temp16 << 1); 
    }

//(9) 50〜60sec：　曜日、うるう年、予備信号制御
    Temp2 = (unsigned long int)Week;                                                //曜日　10進１桁　　　　：3ビット
                                                                                    //0：日曜日　1：月曜日　2：火曜日　3：水曜日　4：木曜日　5：金曜日　6：土曜日
    Temp1 = 0x00;                                                                   //うるう秒、予備 :6ビット
    Temp16 = Temp16 = (Temp2 << 6) + (Temp1 << 4);                                  //16ビットの送信順文字列作成
    Temp16 =  Temp16 & 0b1111111111110000;                                          //第０〜３位に０をセット
    Temp16 = (Temp16 << 7);                                                         //MSBに先頭データビットを移動
    for(i = 0; i < 9; i++)  
    {
        if( (Count_100msec == (10*i + 505)) && ((0x8000 & Temp16) != 0) )Out = 0;   //１の場合
        if( (Count_100msec == (10*i + 508)) && ((0x8000 & Temp16) == 0) )Out = 0;   //０の場合
        Temp16 = (Temp16 << 1); 
    }

    if(Out == 1)
    {
        output_high(PIN_B0);    //アンテナ出力          //　タイムコード出力　：　”１"　＝　High
        output_high(PIN_B1);    //コネクタ出力
    }

    if(Out == 0)
    {
        output_low(PIN_B0);                 //　タイムコード出力　：　”０”　＝　Low　
        output_low(PIN_B1);
    }


    if((Count_100msec == 2) && (Out_Mae == 1) && (Out == 0))
    {
        output_low(PIN_C5);
        Flag_M = 0;
    }

    for(i = 0; i < 6; i++)  //  タイムコード出力”P”の場合
    {
        if((Count_100msec == (92 + i*100)) && (Out_Mae == 1) && (Out == 0 ))
        {
            output_low(PIN_C4);
            Flag_P = 0;
        }
    }

    for(i = 0; i < 60; i++) //  タイムコード出力”１”の場合
    {
        if((Count_100msec == (5 + i*10)) && (Out_Mae == 1) && (Out == 0 )) 
        { 
            output_low(PIN_D3);
            Flag_1 = 0;
        }
    }


    for(i = 0; i < 60; i++) //  タイムコード出力”０”の場合
    {
        if((Count_100msec == (8 + i*10)) && (Out_Mae == 1) && (Out == 0 )) 
        {
            output_low(PIN_D2);
            Flag_0 = 0;
        }
    }

    Flag_M++;
    if(Flag_M >= 8)
    {
        Flag_M = 9;
        output_high(PIN_C5);
    }


    Flag_P++;
    if(Flag_P >= 8)
    {
        Flag_P = 9;
        output_high(PIN_C4);
    }
    
    Flag_1++;
    if(Flag_1 >= 5)
    {
        Flag_1 = 6;
        output_high(PIN_D3);
    }
    
    Flag_0++;
    if(Flag_0 >= 5)
    {
        Flag_0 = 6;
        output_high(PIN_D2);
    }

    Out_Mae = Out;

}


void time_output()              //　タイムコード出力モード（100msec毎）
{
    TimeCode();                 //タイムコードを出力
    Sec = Count_100msec / 10;
    Count_100msec++;
    if(Count_100msec >= 600)
    {
        Count_100msec = 0;
        Min++;
        if(Min >= 60)
        {
            Min = 0;
            H++;
            if(H >= 24)
            {
                H = 0;
                Day++;
                WeekFunc();
                MonthFunc();
              //  YearFunc();	//YearFunc()をコメントアウト（Ver.080706a → Ver.160515）
            }
        }
            
    }
}

void sw_check()     //各スイッチ検出
{
    unsigned long int pr2;  //priod register : 10bit
    unsigned long int DC1; //Duty Comparator : 10bit 

    //セレクトスイッチ検出-------------------------------------------------------
    if((input(PIN_E0) == 0) && (OutputMode == 0))swCount_Select++;  //RA3のセレクトスイッチが押されていた場合
    else swCount_Select = 0;
    if(swCount_Select == 4)                                         //25msec毎に4回スイッチONが連続検出された場合
    {
        if(SelectMode == 0)SelectMode = 1;                          //西暦年設定モードの場合　→　月設定モード
        else if(SelectMode == 1)SelectMode = 2;                     //月設定モードの場合　→　日設定モード
        else if(SelectMode == 2)SelectMode = 3;                     //日設定モードの場合　→　時設定モード
        else if(SelectMode == 3)SelectMode = 4;                     //時設定モードの場合　→　分設定モード
        else if(SelectMode == 4)SelectMode = 5;                     //分設定モードの場合　→　秒設定モード
        else SelectMode = 0;                                        //秒設定モードの場合　→　西暦年設定モード
    }   
    if(swCount_Select >= 5)swCount_Select = 5;                      //スイッチが押されつづけられた場合は


    //アップスイッチ検出---------------------------------------------------------------
    if((input(PIN_E1) == 0) && (OutputMode == 0))swCount_Up++;      //RA5のアップスイッチが押されていた場合
    else swCount_Up = 0;
    if(swCount_Up == 4)                                             //25msec毎に4回スイッチONが連続検出された場合
    {
        if(SelectMode == 0)Year++;                                  //西暦年設定モードの場合　
        else if(SelectMode == 1)                                    //月設定モードの場合　
        {
            Month++;
            if(Month >= 12)Month = 12;
        }
        else if(SelectMode == 2)                                    //日設定モードの場合　
        {
            Day++;
            
            if( (Month == 4) || (Month == 6) ||                     //4、6、9、11月の場合 
                (Month == 9) || (Month == 11) )
            {
                if(Day >= 31)Day = 30;
            }
            else if(Month == 2)                                     //2月の場合
            {
                                                                    //うるう年の場合
                if(((Year % 4 == 0) && (Year % 100 != 0)) ||        //100で割り切れないで４で割れる西暦年はうるう年である。
                (Year % 900 == 200) ||                              //但し、900で割った時あまりが200または、600の西暦年も
                (year % 900 == 600))                                //うるう年である。（改定ユリウス暦）    
                {
                    if(Day >=30)Day = 29;
                }
                else                                                //うるう年以外
                {
                    if(Day >=29)Day = 28;
                }
            }
            else                                                    //１月、３月、５月、７月、８月、１０月、１２月の場合
            {
                if(Day >= 32)Day = 31;
            }
        }
        else if(SelectMode == 3)                                    //時設定の場合
        {
            H++;
            if(H >= 24)H = 23;
        }
        else if(SelectMode == 4)                                    //分設定の場合
        {
            Min++;
            if(Min >= 60)Min = 59;
        }
        else                                                        //秒設定の場合
        {

            Sec++;
            Count_100msec = Count_100msec + 10;
            Count_20msec = 0;
    

            if(Sec >= 60)
            {
                Sec = 59;
                Count_100msec = 590;
            }
        }
        WeekFunc();
    }
    if(swCount_Up >= 5)swCount_Up = 5;                              //スイッチが押されつづけられた場合は


    //ダウンスイッチ検出---------------------------------------------------------------
    if((input(PIN_E2) == 0) && (OutputMode == 0))swCount_Down++;    //RA3のセレクトスイッチが押されていた場合
    else swCount_Down = 0;
    if(swCount_Down == 4)                                           //25msec毎に4回スイッチONが連続検出された場合
    {
        if(SelectMode == 0)                                         //西暦年設定モードの場合　
        {
            Year--;
            if(Year <= 1999)Year = 2000;
        }
        else if(SelectMode == 1)                                    //月設定モードの場合
        {
            Month--;
            if(Month <= 0) Month = 1;
        }
        else if(SelectMode == 2)                                    //日設定モードの場合
        {
            Day--;
            if(Day <= 0) Day = 1;
        }
        else if(SelectMode == 3)                                    //時設定モードの場合　
        {
            H--;
            if(H <= -1)H = 0;
        }
        else if(SelectMode == 4)                                    //分設定モードの場合　
        {
            Min--;
            if(Min <= -1)Min = 0;
        }
        else                                                        //秒設定モードの場合
        {

            Sec--;
            Count_100msec = Count_100msec - 10;
            Count_20msec = 0;
    
            if(Sec <= -1)
            {
                Sec = 0;
                Count_100msec =0;
            }
        }
        WeekFunc();
    }   
    if(swCount_Down >= 5)swCount_Down = 5;                          //スイッチが押されつづけられた場合は

    //40/60　KHｚ搬送波周波数切り替えスイッチ検出---------------------------------------------------
    if(input(PIN_A4) == 0)          //40KHz
    {
        pr2 = 249;  // 周期 T0 = (pr2 + 1) * 4 * Tosc * (TMR2 Prescale Value)
                    //        = (249 + 1) * 4 * 0.025 * 1 = 25μsec　（40KHｚ）
        DC1 = 500;  //　ON時間　Ton = DC1 * Tosc * (TMR2 Prescale Value)
                    //           = 500 * 0.025 * 1 = 12.5μsec　（duty = 12.5/25 ＝ 50%)

    }
    else 
    {

        pr2 = 166;  //T0 = (166 + 1) * 4 * 0.025 * 1 = 16.7μsec　（59.88KHｚ）
                    // 誤差　=(60-59.88)/60 = 0.2%
        DC1 = 334;  //Ton = 334 * 0.025 * 1 = 8.35μsec (duty = 8.35/16.7 = 50.00%)
    }


    setup_timer_2(T2_DIV_BY_1,pr2,1);   //プリスケーラ：1/1　　pr2：0〜255　　ポストスケーラ：1（PWMでは使わない）
    setup_ccp1(CCP_PWM);    //CCPをPWMモードでセット

    DC1 =(unsigned long int) pr2*2 +2;  //
    set_pwm1_duty(DC1);                 //PWMのdutyをセット

}



void Decode()
{
        signed long int Sum_Transmit,Sum_Receive;
        signed long int temp_Year,temp_Month,temp_Day,temp_H,temp_Min,temp_Sec,temp_mSec;

        temp_Year = (((signed long int)buf[1]) << 8) + buf[0];
        temp_Month =    (((signed long int)buf[3]) << 8) + buf[2];
        temp_Day =  (((signed long int)buf[5]) << 8) + buf[4];
        temp_H =    (((signed long int)buf[7]) << 8)    + buf[6];
        temp_Min =  (((signed long int)buf[9]) << 8)    + buf[8];
        temp_Sec =  (((signed long int)buf[11]) << 8)   + buf[10];
        temp_mSec = (((signed long int)buf[13]) << 8)   + buf[12];
        Sum_Transmit = (((signed long int)buf[15]) << 8) + buf[14];

        Sum_Receive = 0;        
        Sum_Receive = temp_Year + temp_Month + temp_Day 
                                + temp_H + temp_Min + temp_Sec + temp_mSec;

        if((Sum_Transmit == Sum_Receive) &&
            ((temp_Year >= 2000) && (temp_Year <= 9999)) &&
            ((temp_Month >= 1) && (temp_Month <= 12)) &&
            ((temp_Day >= 1) && (temp_Day <= 31)) &&
            ((temp_H >= 0) && (temp_H <= 23)) &&
            ((temp_Min >= 0) && (temp_Min <= 59)) &&
            ((temp_Sec >= 0) && (temp_Sec <= 59)) &&
            ((temp_mSec >= 0) && (temp_mSec <= 999)) ) 
        {
            OutputMode = 1;
            Year = temp_Year;
            Month = temp_Month;
            Day = temp_Day;
            WeekFunc();
            H = temp_H;
            Min = temp_Min;
            Sec_PC = temp_Sec;
            mSec = temp_mSec;
        
        }

}


#int_timer0                     //タイマ１割込み(20msec毎に割込み発生）
interval()
{


//RTS/CTSフロー制御

     output_high(PIN_C1);//PC側からの送信を禁止：　PIC側ソフト：1(High) をRC2ピンにセット
                                                //→　MAX232のT2in出力電圧（=PICのRC2ピン）：5V
                                                //→　PIC側のRTS信号（MAX232のT2out7番ピン)：-8V　
                                                //→　COMポートCTS(8番ピン）; -8V
                                                //→　Comstat.fCtsHold（送信禁止） = true


    PIR1 =  (PIR1  & 0b11011111);   //割込み制御レジスタPIR1の第５ビットをクリア　→　受信の割込みフラグクリア
    RCSTA = (RCSTA & 0b11101111);   //CREN = 0（連続受信不可）
    RCSTA = (RCSTA & 0b11111101);   //OERR = 0　：　オーバーランエラー（データが残っているのに次のデータを受信）クリア） 
    RCSTA = (RCSTA & 0b11111011);   //FERR = 0　：　フレーミングエラー（ストップビットがこない）クリア
    RCSTA = (RCSTA | 0b00010000);   //CREN = 1（連続受信可）



    set_timer0(40536);      // 0.025μsec ×　4　×　8　×　25000　＝　20000μsec　=　20msec （at システムクロック40MHｚ）
                            // 256×256　-　25000　=　40536



    ix = 0;                 //RS232データリセット

    sw_check();             //スイッチ入力をチェック




    sw_check();             //スイッチ入力をチェック
    
    Count_20msec++;






    if(mSec > 1000) mSec = 5555;
    else if((mSec > 980) && (mSec <= 1000)) //PC　からのｾｯﾄで　"Set_PC秒　980-1000msec" になった場合
    {
        mSec = 5555;    //PCからの時刻設定が終了したらこのループには入らない
        Count_20msec = 0;

        Count_100msec = (Sec_PC + 1)  * 10; //Sec_PC = 59の場合　：　Count_100msec = 600
                                    // 　→　time_output()のなかで１秒繰り上がる
        time_output();  //時刻をセット
    }
    else    mSec = mSec + 20;

    
    if(Count_20msec >= 5)       //100msec毎


    {
        Count_20msec = 0;

        if(OutputMode == 1) time_output();  //　タイムコード出力モードであれば100msec毎
          
    }

    

    
        putc((signed long)Year);
        putc(((signed long)Year) >> 8);

        putc((signed long int) Month);
        putc(((signed long int) Month) >> 8);

        putc((signed long int)Day);
        putc(((signed long int)Day) >> 8);

        putc((signed long int)Week);
        putc(((signed long int)Week) >> 8);
    
        putc((signed long int)H);
        putc(((signed long int)H) >> 8);
    
        putc((signed long int)Min);
        putc(((signed long int)Min) >> 8);

        putc((signed long int)Sec);
        putc(((signed long int)Sec) >> 8);

        putc((signed long int)Out);
        putc(((signed long int)Out) >> 8);



    //RTS/CTSフロー制御 
    output_low(PIN_C1);//PC側からの送信を許可：　PIC側ソフト：0(Low) をRC1ピンにセット
                                                //→　MAX232のT2in入力電圧（=PICのRC2ピン）：0V
                                                //→　PIC側のRTS信号（MAX232のT2out7番ピン)：+8V　
                                                //→　COMポートCTS(8番ピン）; +8V
                                                //→　Comstat.fCtsHold（送信禁止） = false
                                                //→　送信許可                                        



    return 0;
}


char timed_getc()
{
        char    returnValue;
                int32 timeout;

        timeout = 0;
        while(!kbhit()&&(++timeout< 20000))        // タイムアウト時間内にデータを受信しなければwhile()ループを抜ける
                                                        //タイムアウト時間 ＝ 200 msec 
        delay_us(10);                                    // 10μsec
  
        if(kbhit())                     //タイムアウト時間内にデータを取得した場合はデータを取得し、そのデータを返す
                returnValue = getc();
        else                            //　タイムアウト時間内でデータを取得できなかった場合はNAKを返す
                returnValue = NAK;
        return returnValue;
}

#INT_EXT1
void EXTX()             //　RB1端子からの外部割り込みで実行
{

            if(OutputMode == 1)                             //タイマコード出力モード
            {
                OutputMode = 0;                             //タイムコード出力モードの場合　→　時刻設定モード
                SelectMode = 0;                             //西暦年設定モードにセット
            }
            else
            {
                OutputMode = 1;                         //時刻設定モードの場合　→　タイムコード出力モードにセット
                set_timer0(65534);                      //タイマ割込みをすぐかける
            }
                

}


#INT_RDA
void rs232c()
{

    temp_Count++;

    PIR1 = (PIR1 & 0b11011111); //割込み制御レジスタPIR1の第５ビットをクリア　→　受信の割込みフラグクリア
    buf[ix] = timed_getc();
    if(ix >= 15)
    {
        ix = 0;
        Decode();

        RCREG = 0;
    }
    else ix++;

}



main()
{

    char char_Pulse;
    char char_Time;

    char Slash[] = "/";
    char Slash_Zero[] = "/0";
    char No_Zero[] = "";
    char Zero[] = "0";
    char Semi[] = ":";
    char Semi_Zero[] = ":0";
    char T_200msec[] = "200msec";
    char T_500msec[] = "500msec";
    char T_800msec[] = "800msec";
    char T_blk[]     = "       "; 
    char* BeforeMonth;
    char* BeforeDay;
    char* BeforeH;
    char* BeforeMin;
    char* BeforeSec;


    setup_timer_0(RTCC_INTERNAL |RTCC_DIV_8);
    set_timer0(49911);

    set_tris_b(0xFF);
    set_tris_c(0b10000001);// 必須 in = RC7 & RC1

    ext_int_edge( 1, H_TO_L); //Set up PIC18 EXT1
                                                     //RB1(INT1)ポートが　highからlowに変化した時割込みがかかるように設定


    
    lcd_init();
    lcd_cmd(0b00001100);                                            // カーソル:OFF    ブﾘﾝｸ:OFF
    lcd_clear();
    printf(lcd_data,"JJY SimulatorKit");
    lcd_cmd(0xC0); //　２行目の先頭へ
    printf(lcd_data,"     Ver.170128");

    WeekFunc();
    delay_ms(2000);

    enable_interrupts(INT_EXT1);    //外部割込み１割込み解除
    enable_interrupts(INT_RDA);     //RS232C割込み解除
    enable_interrupts(INT_TIMER0);  //T0の割込み解除
    enable_interrupts(GLOBAL);      //全割込み解除

    PIR2=(PIR2 & 0b11111011);       //タイマ０の割込みを下位レベルに設定
                                    //→ペリフェラル割込みレジスタ２(PIR2)の第２位ビットを"０"にセット
    INTCON2=(INTCON2 | 0b00100000); //UART受信用の割込みを上位レベルに設定
                                    //→割込み制御レジスタ２(INTCON2)の第５ビットを"１"にセット
    INTCON3=(INTCON3 | 0b01000000); //INT1の割込みを上位レベルに設定
                                    //→割込み制御レジスタ3(INTCON3)の第６ビットを"１"にセット


    while(1)                                                        //　割込みを待つ
    {


    //　液晶表示
    if(OutputMode == 1)                                     //タイムコード出力モード
        {
                if(Month <= 9)BeforeMonth = Slash_Zero;
                else BeforeMonth = Slash;
                if(Day <= 9)BeforeDay = Slash_Zero;
                else BeforeDay = Slash;
                if(H <= 9)BeforeH = Zero;
                else BeforeH =No_Zero;
                if(Min <= 9)BeforeMin = Semi_Zero;
                else BeforeMin = Semi;
                if(Sec <= 9)BeforeSec = Semi_Zero;
                else BeforeSec = Semi;

            lcd_clear();
            if(Flag_M <= 8)         //パルス幅200msec　マーカ信号検出
            {
                char_Pulse = 'M';
                char_Time = T_200msec;
            }           
            else if(Flag_P <= 8)    //パルス幅200msec　ポジションマーカ検出
            {
                char_Pulse = 'P';
                char_Time = T_200msec;
            }
            else if(Flag_1 <= 5)    //パルス幅500msec　論理”1”
            {
                char_Pulse = '1';
                char_Time = T_500msec;
            }
            else if(Flag_0 <= 5)
            {
                char_Pulse = '0';   //パルス幅800msec　論理”０”
                char_Time = T_800msec;
            }
            else 
            {
                char_Pulse = ' ';
                char_Time = T_blk;
            }
            printf(lcd_data,"%ld%s%ld%s%ld %s %c",Year,BeforeMonth,Month,
                                BeforeDay,Day,str,char_Pulse);      //  　
            lcd_cmd(0xC0); //　２行目の先頭へ Day_This_Year

            printf(lcd_data,"%s%ld%s%ld%s%ld %s",
                            BeforeH,H,BeforeMin,Min,BeforeSec,Sec,char_Time);           //
        }
    
        else                                                        //　年月日時分秒の設定モード
        {
            switch(SelectMode)
            {
                case 0:     //西暦年設定
                    sprintf(str_Mode,"(Year)");
                    break;
                case 1:     //月設定
                    sprintf(str_Mode,"(Month)");
                    break;
                case 2:     //日設定
                     sprintf(str_Mode,"(Day)");
                    break;
                case 3:     //時設定..
                     sprintf(str_Mode,"(H)");
                    break;
                case 4:     //分設定
                     sprintf(str_Mode,"(Min)");
                    break;
                case 5:     //秒設定
                     sprintf(str_Mode,"(Sec)");
                    break;
                default:    break;
            }

        lcd_clear();
        printf(lcd_data,"%ld.%ld.%ld %s ",Year,Month,Day,str);      //  　

        lcd_cmd(0xC0); //　２行目の先頭へ
    
        printf(lcd_data,"%ld:%ld:%ld  %s",H,Min,Sec,str_Mode);          //

        }

    
    

        delay_ms(100);

    
    }




    return 0;
}





//-----------------------------------------------------------------------

//**************************************
//インクルードファイル    1lcd_lib.c
//このファイルは後閑哲也さんが設計されたものです
//**************************************

///////////////////////////////////////////////
//  液晶表示器制御ライブラリ
//  内蔵関数は以下
//    lcd_init()    ----- 初期化
//    lcd_cmd(cmd)  ----- コマンド出力
//    lcd_data(chr) ----- １文字表示出力
//    lcd_clear()   ----- 全消去


//////////////////////////////////////////////

//////// データ出力サブ関数
void lcd_out(int code, int flag)
{
	output_x((code & 0xF0) | (input_x() & 0x0F));
	if (flag == 0)
		output_high(rs);		//表示データの場合
	else
	output_low(rs);			//コマンドデータの場合
	delay_cycles(4);			//NOP 1		
	output_high(stb);			//strobe out
	delay_cycles(8);			//NOP 2
	output_low(stb);			//reset strobe
}
//////// １文字表示関数
void lcd_data(int asci)
{
	lcd_out(asci, 0);			//上位４ビット出力
	lcd_out(asci<<4, 0);		//下位４ビット出力
	delay_us(50);				//50μsec待ち
}
/////// コマンド出力関数
void lcd_cmd(int cmd)
{
	lcd_out(cmd, 1);			//上位４ビット出力
	lcd_out(cmd<<4, 1);			//下位４ビット出力
	delay_ms(2);				//2msec待ち
}
/////// 全消去関数
void lcd_clear()
{
	lcd_cmd(0x01);				//初期化コマンド出力
	delay_ms(15);				//15msec待ち
}
/////// 初期化関数
void lcd_init()
{
	set_tris_x(mode);			//モードセット
	delay_ms(15);
	lcd_out(0x30, 1);			//8bit mode set
	delay_ms(5);
	lcd_out(0x30, 1);			//8bit mode set
	delay_ms(1);
	lcd_out(0x30, 1);			//8bit mode set
	delay_ms(1);
	lcd_out(0x20, 1);			//4bit mode set
	delay_ms(1);
	lcd_cmd(0x2E);				//DL=0 4bit mode
	lcd_cmd(0x08);				//display off C=D=B=0
	lcd_cmd(0x0D);				//display on C=D=1 B=0
	lcd_cmd(0x06);				//entry I/D=1 S=0
	lcd_cmd(0x02);				//cursor home
}